home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / SHIFT PAGE FLIP ANIMATION.bas < prev    next >
BASIC Source File  |  2023-02-26  |  717b  |  16 lines
  1. 10  HGR : HGR2 : CALL 37799: POKE 251,144
  2. 20  POKE 252,130: POKE 253,144: POKE 254,7: POKE 255,0
  3. 30  CALL 37679: REM  DRAW SHAPE ON PAGE 2
  4. 35  CALL 37146: REM  SET STARTING COUNTER=14
  5. 40  POKE 230,32: CALL 37679: CALL 37192: REM  DRAW PAGE 1/SHIFT RIGHT 2/DEC COUNTER
  6. 50  FOR X = 1 TO 56
  7. 60  CALL 37174: NEXT 
  8. 70  POKE 230,32: CALL 37226: CALL 37679: REM  MOVE BACK 2/ERASE PAGE 1
  9. 80  POKE 230,64: CALL 37606: REM  REVERSE PAGE 2
  10. 85  CALL 37146: REM  RESET COUNTER=14
  11. 90  POKE 230,32: CALL 37679: CALL 37226: REM  DRAW PAGE 1/MOVE AHEAD 2
  12. 100  FOR X = 1 TO 56
  13. 110  CALL 37208: NEXT 
  14. 120  POKE 230,32: CALL 37192: CALL 37679: REM  MOVE BACK 2/ERASE PAGE 1
  15. 130  POKE 230,64: CALL 37606: REM  REVERSE PAGE 2
  16. 140  GOTO 35